home *** CD-ROM | disk | FTP | other *** search
- REM $INCLUDE: 'fastgraf.bi'
-
- DEFINT A-Z
-
- FGsetmode 19
- FGvbinit
-
- SetMemStatus& = SETMEM(-(320&*200&+16))
- SetMemStatus& = SETMEM(-(80*50+16))
- Handle1 = FGvballoc(320,200)
- Handle2 = FGvballoc(80,50)
- IF Handle1 < 0 OR Handle2 < 0 THEN
- FGsetmode 3
- FGreset
- PRINT "Could not create the virtual buffers."
- STOP
- END IF
- Buffer1 = FGvbaddr(Handle1)
- Buffer2 = FGvbaddr(Handle2)
-
- Status = FGvbopen(Handle1)
- Status = FGloadpcx("CORAL.PCX"+CHR$(0),0)
- FGvbpaste 0, 319, 0, 199, 0, 199
- FGwaitkey
-
- FGscale Buffer1, Buffer2, 320, 200, 80, 50
- Status = FGvbopen(Handle2)
- FGvbpaste 0, 79, 0, 49, 0, 199
- FGwaitkey
-
- FGvbclose
- FGvbfree Handle1
- FGvbfree Handle2
- FGsetmode 3
- FGreset
- END